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ABSTRACT 


Program CONVERT will perform the major tasks in translating a LAP6 or LAP6=3L source stored on a 
LINC tape to a suitable source for utilization by the DIAL system on the PDP-12. 


REQUIREMENTS 


1. The minimum configuration is the PDP-12A. 
2. A DIAL system tape containing CONVERT on Unit 0. 


3. A LAP6 tape on Unit 1 containing the source program to be translated. 


OPERATING PROCEDURE 


1. Load a DIAL system tape containing the CONVERT program onto Unit 0. 
Load the LAP6 tape on Unit 1. 
Call in DIAL. 


& GW bh 


Clear the DIAL work area with the CL monitor command. 


5. Call PROGRAM CONVERT by typing: 
~ LO CONVERT ,0 3 


6. Complete the questionnaire seen on the scope by inserting the starting Block Number of 
the program to be converted. Press the LINEFEED Key upon completion. (See QANDA 
documentation for more details .) 


7. Upon completion of the program, CONVERT rewinds the LAP6 tape on Unit 1, types 
out a message warning the user to remove the LAP tape from Unit | and to type: 


8. The user now has two alternative procedures: 


Choice 1 - if more than one program will be translated, leave the LAP tape on Unit 1, 
type: 
+ SP name ,O 2 


and file your source program ("name" is an eight-character name selected by the user). 
Then issue a: 


~LO CONVERT,O ) 
to translate another source program. 


Choice 2 - Replace the LAP tape on Unit 1 with a DIAL system tape, check and edit 
program, then type: 


+LI 2 to assemble and obtain a listing 
>~AS 2 to assemble only 
+PS2 to obtain a quick source listing without assembling. 
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WARNING 


If you issue a LI or AS command without removing 
your LAP tape, your assembled binary will overlay 
filed programs on the LAP tape. 


PROGRAM RESULTS 


1. Converts LAP6 packed LINC code source into packed ASCII source code. (See Table 1.) 


2. Removes the LAP tag indicator and reverses the tag to that acceptable by DIAL 
(i.e., "#2C" becomes "C2,TAB") and follows the user tag with a comma and a TAB. 


Initiates each line with a TAB unless the line begins with a tag or comment. 


3 
4, Inserts a space after all three letter combinations except those in a comment or text 
environment. 


"i" toan "I _,", each "u" toan "U.,", and each "p" to a period, 


5. Changes each 


ie 8 

6. Reverses all number-letter combinations to letter-number combinations indicating valid 
references to tags. 

7. Inserts an *20) into the new source along with a warning message. 


8. Inserts equalities for old mnemonics that can be legally used on the 12. These will be 
at the start of the new program. 


9. Changes ALT MODE/A to TEXT“ >and ALT MODE/B to >. (See restriction for this 
text system when used with the new QANDA.) 


10. The LAP terminator code 77 changes to code 00 ($) indicating a source terminator for 
DIAL source programs. 


11. Ignores the first two words of a LAP6 source (2065, 5712). 
12. Replaces the square left bracket with a slash to indicate comments in the DIAL system. 


13. Replaces the vertical bar with a backsiash to indicate the 1000, x +y operator . 


LIMITATIONS 


The CONVERT program only accomplishes the major efforts involved in translation. The user must 
accept responsibility for solutions to overcome situations caused by a new monitor system (DIAL) and 


a new computer (PDP-12). These situations are outlined below: 


1. KBD = DIAL will issue a US error and the user must insert the correct IOB's or a PDP-8 
mode routine. (Also see Limitation 10.) 


2. OPRn = DIAL will issue a US error. The user must determine how the LINC-8 PROGOFOP 
was modified to handle particular OPR situations . 


3. TAPE READ/WRITE - The DIAL index format file locations, QANDA size and location, 
working area, etc. differ from LAP6 and LAP6-3L. 
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4, EXC - Use of the EXC mnemonic will cause a US error. The user may desire to insert 
C his PDP-8 mode program directly into the program at this point. 


5. SAMn -The A-D sampling instruction utilizes one additional bit in the PDP-i2. 


6. PDP - DIAL will create an instruction (002) which changes the processor from LINC Mode 
to PDP-8 Mode. The LINC-8 PDP mnemonic (0513) also transferred to PDP-8 mode, but to 
the location in the LINC accumulator. 


7. REARRANGED INSTRUCTION ELEMENTS - LAP6 allowed rearranged field elements 
(seldom used) which will confuse the translator and will not be accepted by DIAL. DIAL 
expects (if present) a tag, mnemonic, operand and comment: 


Example: "i6LDA" becomes "TABI L6DA ". 


8. QANDA - Check all "JMP 1000", “RDC 2403", and "RDE 2403" instructions as these 
may indicate use of the LINC-8 Q+A Subroutine. The new QANDA Subroutine is contained 
in two tape blocks and its location may not be Block 403. 


9. TEXT META - Check all data between brackets after translation. These indicate a text 
mode probably used with the LINC-8 Q+A buffer. The new QANDA has a separate text 
and answer string (see the QANDA documentation for more details) . 


10. TELETYPE INPUT - The old Q+A and KBD inputs were in LINC code. The new QANDA 
and most input routines utilize ASCII code. Thus, the routines following an input routine 
will require changing. (Example -a 1 is 01 in LINC code, 261 in ASCII, and 61 in packed 
ASCII.) The new QANDA left justifies packed ASCII in an answer buffer, while the QtA 
right-justified packed LINC code in the text buffer. 


11. ZTA - The retrieval of the Block Number from the Z register after a LAP LO command 
does not apply to the MQ register in the DIAL system. 
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Z Character Changes 








LAP DIAL 
Code Character Character Code 
00 0 0 60 
01 1 1 6] 
02 2 2 62 
03 3 3 63 
04 4 4 64 
05 5 5 65 
06 6 6 66 
07 7 7 67 
10 8 8 70 
1] 9 9 71 
12 P P 43 
13 Rubout Rubout None 
14 Space Space 40 
15 i I 1 
3 


SORCERY ACTER WASSIRTUN Re 








LAP 


Character 


me) 


+ 


Vert Bar 
if 


> 
re 
=i 


NX XEZ<CAYAHVOZZSO-AGS “TOA MIND 


LINEFEED 
illegal 
? 


Table 1 (Cont) 
Character Changes 


Character 


PN + I: 


| 
~ 


N<x<xe<C7AMAOQOVOZTAMA+"TOM™IONS>yYD 


LINEFEED 


il ~~ WS 


% ° ~~ Cc: 


/ 
A 


See Item 9 of Program Results 


> 


DIAL 


76 





6 
t \ 
\ 


© 











Table 1 (Cont) 
Character Changes 





LAP DIAL 
Code Character Character Code 
72 < < 74 
73 > > 76 
74 ] J 35 
75 ig . 52 
76 : : 72 
77 ilegal (eof) eof 00° 
100 illegal TAB 47 
t 36 
$ 44 
% 45 
INTERNAL MACRO-FLOW CHART 
AC = Reference to Accumulator 
IX10 = Reference to the Auto-Index Register used as the input half-word 
pointer. 
: 1X11 = Reference to the Auto-Index Register used as the output buffer half-word 
pointer. 
bed CR = Carriage Return 
C. HWD ~ = Routine that reads in the next character (half-word) from the input buffer 


tenement ca RS HU LN ou ke A LET 


ESTO mee mee pa om SITING 


and, if necessary, refills the input buffer. Each buffer refill reads in 
two blocks to eliminate character look-ahead problems. 


LINCD = Routine that stores a converted character into the output buffer. When 
filled the output buffer is written into the next block of the DIAL 
working area. 


WA = Working Area on Unit 0. 
SWAP  - Routine that reverses half-word characters to create a legal DIAL tag. 
5 
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LOC 
_ (4020 


READ 
INITIAL 2 


INITIALIZE 





JMP HWD 


JMP HWD 
JMP LINCD 


ES _ YES “ore 


YES 


YES (x89 
pf =JMP LINCD JMP SPACE 


JMP LINCD JMP SPACE 


Flow Chart (Part 1 Of 4) 


NO 


JMP LINCD 


100 —»AC 




















Pan 
C 
s 
\ 





YES 
<> sen JMP HWD i JMP SWAP JMP COMMA MO} 
S 
YES YES ; ‘, ; 
>(  ymP SWAP 
“YES ~ 







>{ IMP HWD 
JMP HWD 
JMP SPACE 










NEXT 

NEXT CHAR 
A-Z 
=) 


YES 

JMP LINCD 
fF  =s«JJMP LINCD 
JMP LINCD 


















Flow Chart ( Part 2 of 4 ) 
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RETURN RETURN 


ae renee sen wei 


47 —-®» AC 


JMP LINCD 


JMP SPACE 


T3—@ AC 







| D 


( Jump HWo 


JMP LINC 


( ymecined ) 





JMP LINCD 


Flow Chart (Part 3 of 4 ) 





STORE RETURN 


CHAR —*C(SWAPI) 
JMP HWD 


CHAR» C(SWAP 2) 


C(SWAP 2) ——» AC 


JMP LINCD 


1C(SWAP1)——# AC 


JMP LINCD _ 


RETURN 











STORE RETURN | C(AC)——eOPWD 
YES | save RETURN 
RESET 1X10 | 


O/P 
« BUFFER FULL 







INPUT BUFFER 


NO 











YES 


C(NBNIN) = 
C(NBNIN)+4) [ 
CHAR—* AC 









> 
| NO 
C(NBNINI)= = 
C(NBNIN) + CONVERT LINC 
RETURN 1001 CODE IN OPWO 
TO ASCH 
/READ IN 
TWO | STORE IN 


BLOCKS 


OUTPUT BUFFER | 
OF DATA 


RETURN 


WRITE TELETYPE 
MESSAGE 


RE-INITIALIZE 
FOR DIAL 





Flow Chart (Part 4 of 4 ) 


tvate se (wk? a! pate ne eetanaaemai meen en A ha ME TENE RAITT TEC CTE ORES CRT TOT WTR ‘a 
mew KO ee — panama  poseerenenperr opener snne FAI b AATTTTE SST TA Ba MY ETE ih ketal Ue Sah TUE POAT POT T 7 = ana ak 





UPDATE O/P BUFFER 
B/N USED IN 
TAPE WRITE 


<>" 


RESET 1X11 
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SO eee 


2 Ae es 





ee 0 ee EM aa an RS pee AR MT lintel ene ana atten dad dle Hh sett ta, sshd Pall 
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C808 
882 
"4 ge ES 
GG83 
2204 
ZWA5 
2226 
@807 
2012 
@Gi1 
G01i2 
@215 
814 
2015 
216 
9816 
2816 
@816 
0817 
8017 
2817 
8028 
2820 
8828 
B220 


_. 9820 


G028 
2828 


_, 0828 


8828 
9820 
OB20 
@021 


6824 


8821 


' 9924 


OB21 
@024 
8224 
2821 
OG2i 
8821 


" gg@24 


8822 
R822 
OB2e2 
G822 
9822 
OB2e2 


«9822 
9822 


BB2e 
Q825 
2024 
@825 
O26 
8827 
98308 
6631 
G832 
8655 


tf mee te ad 
* g83 : 
< ove oe 


2228 
R224 
geé22 
S223 
2024 
2025 
2226 
GG27 


02358 
Q231 


2832 
C853 
20634 
62355 
0236 
8237 
GH42 
2241 
B242 
8243 


ge44 
2845 
8646 
2847 
2052 
GO51 
2252 
G253 
254 
2055 


856 
2057 
2260 
OG61 
C262 
C2635 
9064 
2265 


@L66 
@267 
G278 


0074 
Q972 
Ba73 
0074 
G75 


6871 
8225 
2266 
6144 
7062 
2603 
1716 
2605 


2224 
4310 


4243 
1614 
81208 
664¢ 
2317 
2522 
0505 
4028 
2217 
8722 


0115 
431 
2524 
Bi2e2 
2423 
4041 
1642 
0214 
1783 
1574 


6343 
1817 
1642 
2516 
1124 
4217 
1695 
3482 


7420 
R200 
3482 


1820 
GQB2 
2080 
1869 
C888 


#22 

/PROGRAM CONVERT 

/POP-12 PROGRAM “ 
/INPUT? PACKED LINC SOURCE 

/FILED IN LAP6,LAP6A~3L,0R 

/LAP6=3L SYSTEM ON UNIT 21 

/OUTPUT: PACKED ASCI! SOURCE 
7ZIN WA OF DIAL ON UNIT @ 

/ 


JMP QAINIT 
TEX1 

ANS1 

JMP QARFSH 
JMP SETUP 


TEXL, TEXT OFCONVERT 


HLAP6 SOURCE PROGRAM 


HSTARTS IN BLOCKS<3 


HON UNIT ONE\> 
ANSI, 7482 
2208 
3408 
/PUT QANA HERE 
/Qe¢A ROUTINE FOR POP+12 
QAINIT, LDA I ASAVE JMP RETURN 
2 
ADD @ 
STA | 
QA, 8 / JP o3 


a 











BO55 
0036 
@@37 
0849 
00414 
@B42 
B84 
G244 
@945 
0046 
Q047 
G258 
GO54 
@852 


9853 


0254 
@@55 
02856 
@057 
QB60 
BO64 


9862 


9863 
0264 


8065 


OB66 
0267 


"" 9878 


BO71 
G872 
0075 
0074 


_ 0875 


0876 
8077 


8108 
— O181 


0182 
9103 
0184 


«8485 


0106 


_ 0187 
. 0118 
_ O111 
8112 


Bills 
0114 
115 
G116 
117 
0128 
0121 
Bi22 
B1i2s 
G124 
R125 
R126 
0127 
D150 


B151¢ 


8152 


1, O133 








w276 
2077 
give 
gigi 
2ige 
2123 
2124 
2125 
2126 
2107 
e112 
2111 


Zile 
Z1i1i3 
2114 
@115 
2116 
@117 
G1i2e 
G12i 
®@1e22 
G123 
6124 
@125 


2126 
2127 
0130 
6134 
8132 
2133 
8134 
G135 
2136 
6137 
2140 


21414 
8142 
2145 


144 
2145 
2146 
147 
9152 
i151 
2152 
2153 
2154 
2155 
Z156 
2157 
2162 
161 
8162 
0163 
0164 
8165 
8166 
@167 


172 


2271 
4001 
1891 
23555 
415¢ 
1821 
4143 
4026 
@2438 
0143 
2044 
0152 


2B41 
2204 
65614 
2816 
1324 
6322 
6126 
6141 
1468 
0243 
6117 
6li2 


1543 
1524 
1122 
7717 
C17 
4226 
1563 
8226 
6134 
1323 
6117 


1343 
0064 
QO22 


1022 
2137 
4204 
¥B63 
2020 
0245 
8143 
2041 
2203 
6361 
6165 
1323 
1620 
1568 
4174 
2603 
6172 
1323 
1020 
1628 


QACA, 


QAD» 


QAE, 


QARFSH, 


QAG, 
JMP QAT 


4174 


ADD QAL*S 


STC 
LOA 


1 
1 


ADD QAQ+1 


STC 
LDA 


STC QARFSH=1 


STC 
SET 


QAG=3 
I 4 


6 
5 


QARFSH=1 


SET 


4 


QAG=3 


SET 


4 
JMP 
NOP 
LOH 
JMP 
JMP 
JMP 
SAE 
43 

JMP 
JMP 


STH 
LDH 
ADA 
-60 
COM 
STC 
STH 
XSK 
JMP 
LOH 
JMP 


STH 
SET 
g 


LOA 
157 
STC 
SET 
g 


1 
QAT 


I 4 
QAO 
16 
QAE 
I 


QAD 
QACA+4 


3 
1 4 
I 


i] 
OAR oO G 


oe Cal @-* 0 ese Ch 
> 


+ Bm 


I 


QAH=-1 
] 3 


SET 95 
QARFSH=4 


SET 
3 


JMP 
LOH 


1 


+7 

1 3 

I 

I 
QAM+2 
QAW 
QAM 

I 3 

I 

I “6 


QAM+2 


/SET INSTR TO SET FF FOR FULL SIZE 


/PTR TO FIRST PARAM 
/GET FIRST PARAM 
/PTR TO HALFWORDe1 


/XR4 TO PTR TO QUESTIONS 
/TO HERE IF FIRST TIME THROUGH OR FOLLOWING A CR 


/F 
/H, BUMP PTR IF H OR F 


474 
4/34 
CR? 
/NO 
/INITIALIZE ANSWER BUFR 


/74 TO ANSWERS 
/NEXT HALFWORD 


/@ IN AC 


/BUMP PTR TO ANSWERS 

/ANSWER BUFR IS INITIATED 

/XxR4 TO PTR TO LAST TYPED CHAR IN ANSWER BUFR 
/ww=oRE@ENTER HERE TO REFRESH**e= 

/INITIAL Y POSITION 

/XR3 TO PTR TO HALFWORD QUESTIONS=1 

/XR5 TO PTR TO LAST DISPLAYED CHAR IN ANSWER BUFR 


/F 
/H, BUMP PTR 
/NEITHER, ASSUME HALF SIZE 


/SET INSTR TO CLEAR FF FOR HALF SIZE 
/NOP IN AC 


/BUMP PTR 
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81354 
B13 


Bis &- 


8137 
0142 
B144 
B1i4se 
B143 
144 
145 
0146 
0147 
9150 
9151 
@152 
@153 
@154 
@155 
8156 
8157 


. 8168 


D164 
84162 
8163 
0164 


| 6165 


B166 
G1 67 


_ B178 


B1714 


— @172 


0173 


| 6174 
_ 8175 


8176 
G177 


9288 
6284 
8282 
8283 
8204 


B2e5 


0286 


8207 
2418 
—B241 
- 242 

8213 


6214 


8215 


— 8216 


6247 
9228 
9221 
2222 
— 2223 


— $224 


(9225 
2226 
9227 


| 8238 
" 9234 


a6e99 





B171 
2172 
£175 
@174 
2175 
2476 
Giv7 
C202 
Z2ol 
g2e2 
2203 
82 24 
G282 
2286 
2287 
¢212 
@211 
2212 
G215 
8214 
g2i5 
0216 
2217 
B22 
G22t 


0222 
2223 
2224 
8225 
2226 
0227 
6230 
0254 
0232 
9233 
9234 
0235 
0236 
6237 
0240 
6241 
2242 
6243 
9244 
B245 
2246 
2247 
2250 
p251 
0252 
2253 
2254 
G255 
g256 
0257 
9260 
B261 
b262 
0263 
6264 
9265 


ADI ZA 


2624 
4336 
Q024 
1628 
Q2G 
C204 
GV61 
@100 
1220 
7737 
116g 
2200 
1523 
6323 
6572 
6227 
1429 
43026 
6153 
6333 
6205 
6353 
15208 
C202 
6627 


1325 
6323 
6205 
6205 
6216 
6612 
0470 
6075 
2062 
0593 
1492 
6482 
1422 
6314 
D206 
6144 
1422 
6266 
1422 
6376 
1422 
6106 
1422 
6144 
1422 
6266 
1422 
6144 
4263 
6322 
6354 
6354 
1922 
B000 
1344 


6144 
4404 


QAM, 


y: 
QAH, 


QAls 


QAds 


MAL. 


ADD QAWe1 
STC QAP+3 
MSC J] 4 
BSE | 

202 

MSC 4 

SEF 4 A 
168 

LDA [| 

- 42 

ADM I 


LOH [I 3 
JMP QAQ+1 
JMP QAZ 
JMP QAJ 
snp. | 
4300 

JMP QAG 
JMP QAP 
JMP QAH 
JMP QAP 
SRO I /SWITCH 


JMP QAF 


LOH I 5 
JMP QAO*+1 
JMP QAH 
JMP QAH 
JMP QAT@-4 
JMP GETKBD 
AZE | 


ADD 9U IN AC 


JEAD conta REGISTER 
/THIS INSTR CHANGES, EITHER BSE & OR BCL & 


/AC TO CONTROL REGISTER 
/XR1 TO INITIAL X POSITION 


/Y COORDINATE MULTIPLE 


7¥ COORDINATE 


4/74 BUMP PTR TO NEXT CHAR, PUT 42 IN aC 
134 
/NETTHER 


/CR. MOVE X AND Y COORDINATE 

/ISPLAY CHAR 

/PICK UP NEXT CHAR 

/TO HERE IF DISPLAYING ANSWER BUFR 

TO DISPLAY CURSOR, EITHER 8882 OR 7777 
/IFXR4=XR5e THEN SWITCH27777 


QUESTION MODE 


774 

734 

/NELTHER, DISPLAY IT 

/TO HERE IF DISPLAYED BUFFER 


JMP QAB /NOTHING TYPED , EXIT 


SET I 2 
QAY 

SHD 2 

JMP QAKS4 
SHD I 2 
JMP QAN 
XSK 6 

JMP QARFSH 
SHD I 2 
JMP QAL 
SHD I 2 
JMP QAK 
SHD |! 2 
JMP QACA 
SHD I 2 
JMP QARFSH 
SHD [I 2 
JMP QAL 
SHD I 2 
JMP QARFSH 
STC ,+5 
JMP QAO 
JMP QAQ 
JMP QAQ 
LBA | 


STH 4 
JMP QARFSH 
iD 4 


(LF @ 
/YES, EXIT 
‘CR? 


/1S THERE AN ANSWER FIELD? 
4<7 

>? 

SALT? 


/BACK SLASH? 

IGNORE 

/RUBOUT? 

/IGNORE 

/TAB? 

/TGNORE 

/ACCEPTABLE CHAR 
/TEST NEXT CHAR 

474 BACK PTR UP BY i 
434 ¢ 

OK, STORE IT 


/REDISPLAY 
/TO HERE IF RUBBOUT OR < 











O2Z55 
0234 
9235 
8236 
9237 
6242 
9241 
0242 
8243 
9244 
— 8245 
0246 
(8247 
— 9250 
9254 
8252 
6253 
' 9254 
$255 
* 9256 
_, 0257 
"9260 


9264 


9262 
_ 6263 


9264 


9265 
"9266 
" 9267 

9270 


«274 


9272 
9273 
0274 
9275 
8276 
"9277 
~ 9308 
(9301 
““p3ae 
_ 0303 
. 8384 


9305 


8386 
_ 8387 
9318 
_ 4311 
8312 
- 8313 
“63144 
— 6315 
” 6316 
Q317 
322 
B321 
9322 
— 8323 
(8324 
9325 
8326 
9327 
8330 


"6331 





Be2o/ 
G27 
G271 
8272 
$273 
B274 
@275 
276 
Q277 
8320 
O301 
G52 
C383 
@304 
0385 
2306 
0307 
0312 
0311 
O312 
0313 


0314 
0315 
0316 
0517 
03520 
G321 


B322 
B325 
0324 
8325 
0326 
0327 
2350 
G35351 
Z35e2 


9333 
0334 
0335 
2336 
0337 
0340 
0341 
9342 
9343 
9344 
9345 
9346 
0347 
0352 
0354 
g352 
9353 
9354 
9355 
0356 
0357 


7 8568 


G@561 


6525 
6144 
1775 
1322 
1462 
0837 
6554 
8845 
B24 
8243 
B2G4 
6524 
1325 
1323 
6523 
O216 
@O11 
1345 
2450 
63583 
6354 


0226 
6422 
6522 
6144 
6142 
63516 


1324 
14228 
7402 
6226 
1468 
GB34 
0222 
B220 
6829 


9241 
2521 
4002 
2577 
2577 
20614 
4001 
2005 
2817 
2004 
G452 
9011 
4229 
2284 
1742 
1762 
600¢ 
1020 
S777 
1142 
C204 
6144 


4321 


QAN» 


QAO, 


QAP, 


QAQ» 


QaT, 


JMP QAO#L 
JMP QARFSH 
-6082 

LDH 2 

SAE | 

37 

JMP QAQ 
SET 5 
4 

SET 3$ 
4 

JMP ,¢ 
LOH ! 
LOH I 
JMP Q 
NOP 

CLR 

STH 5 
AZE 

JMP on7 
JMP QAQ 


XSK 6 

JMP QAKe4 
JMP QAO 
JMP QARFSH 
JMP QAE*4L 
JMP QAN?2 


LOH I 4 
SHD ] 
7488 
JMP @ 
SAE I 
54 
XSK | 
XSK | 
JMP 6 
is 


ROL 

ADD QAX*4 
ofc 2 

ADO QAU 
ADD GAU 
ADD i 

STC 1 

ADD 5 

COM 

ADD 4 

AZE 

CLR 

STC QAI #2 
ADD QAHe-1 
OSC 2 

OSC I 2 
JMP @ 

LDA | 
=4200 

AQM 

4 

JMP QARFSH 


LOH I 1 





774 JTGNORE 


/TEST THE CHAR 
/RUBOUT? 


‘NO, BACK PTR UP BY 1 


/BUMP PTR 
/GET NEXT CHAR 


/IF 74 OR 34, REPLACE CURRENT CHAR WITH @ 


/WAS IT 74 OR 34? 
“NO, CONTINUE 
/BACK PTR UP BY 1 
‘TO HERE IF CR 


EXIT ROUTINE IF NO ANSWER FIELD 


474 MOVE PTR TO NEXT QUESTION FIELD 
434 END OF BUFR, MOVE PTR TO FIRST QUESTION FIELD 


7S/R 

/ +1 74 BEGIN FIELD 

/ +2 34 END BUFR 

/ *3 NEITHER 74 NOR 34 


/S/R TO DISP LINC CHAR IN AC 
/MULT BY 2 FOR INDEX TO ADORESS OF TABLE 


/ADORESS OF CHAR TO DISP IN XR2 
/THIS INSTR CHANGES, EITHER OP OR ADD 9U 


/ADD 4 TO XR1i TO SPACE CHAR 
/GET ADDRESS OF ANSWER BUFR 


/SWITCH2@ OR 7777 
4Y COORDINATE IN AC 


DISPLAY CHAR 
/BACK UP PTR BY 1 





SREDISPLAY 
/ 
7S/R 








be Nie” BS naantat indies ah morte eama inn Cecile (tt te babe abt 





562 1422 SHD | / +1 F 
363 g62a2 2682 / +9 
0564 6090 JMP @ / #3. Z1THER 
9335 0365 1462 SAE ] 
8336 2366 2018 12 . 
0337 0367 8220 ¥SK I @ é 
2340 Z372 8220 XSK I @ 
0341 @371 6062 JMP @ 
2342 / 
(0343 2372 1323 QAzZ, LDH I 3 
9344 0373 1822 LDA I 
345 2374 0842 49 
0346 @375 6216 JMP QAI=4 
0347 /TO HERE IF > 
0352 0376 1324 QAK, LOH I 4 
2351 Q377 24708 AZE ] /1S CURRENT CHAR BLANK? 
9352 C408 6354 JMP QAQ /YES, IGNORE 
9353 2401 6545 JMP QAX /MOVE DOT FORWARD 
@354 /TO HERE TO EXIT WITH SKIP 
9355 0402 1020 LDA ] 
 * 9356 0403 @f01 i 
$357 0404 114¢ ADM 
8362 9485 6075 QAB 
6364 2406 6075 JMP QAB 
(8362 /CHARACTER PATTERNS 
8363 0407 8101 QAV, 181 /KBD 6, ILLEGAL, USED AS MARKER 
— 9364 04148 8101 181 
8365 04141 4477 4477 ALA 
366 9412 7744 7744 
2367 0413 5177 5177 /23B 
9370 0414 2651 2654 
O@371 2415 4136 4136 /3iC 
6372 0416 22414 2241 
(9373 @417 4177 41477 /430 
8374 Q422 3641 - 3644 
_ 8375 0421 4577 4577 /SYE 
— 8376 422 4145 4145 
_ 0377 @423 4477 4477 /OF 
. 6488 0424 4844 4044 
0404 9425 4136 4136 /73G 
9402 9426 2645 2645 
8483 @427 1877 1077 /183H 
— 9484 0438 7718 7740 
405 @431 77414 7741 f/44a31 
2406 8432 2241 @244 
8487 0433 4142 4142 /12%J 
2410 2434 4076 4276 
414 2435 1877 4077 /1338K 
S412 2436 4324 4324 
443 2437 8177 @177 /144L 
8444 9448 g301 G301 
415 0441 3277 3877 /145%M 
2416 6442 7732 7730 
4147 2443 3077 3077 /L68N 
9422 2444 77086 7706 
0424 0445 4177 4177 4/1730 
8422 446 7741 7744 
8423 @447 4477 4477 /263P 
0424 9450 3944 3044 
0425 0451 4276 4276 421430 
8426 @452 0376 0376 
0427 6453 4477 4477 /224R 


cn eae mala WA ad 2444 























2431 g@455 5121 5121 
8432 2456 4651 4651 
84335 2457 4042 ° 4042 
9434 @460 4877 4977 
8435 2461 6177 8177 
2436 2462 7761 7701 
2437 2463 0176 176 
2442 2464 7402 7482 
441 2465 68677 677 
8442 2466 7781 7704 
0443 2467 1463 1463 
0444 2478 6314 6314 
2445 2471 &877¢@ 9779 
2446 2472 7887 7807 
2447 2473 4543 4543 
2450 2474 6151 6151 
24514 2475 4177 4177 
2452 2476 O202 B2OG 
— 8458 
2454 2477 8800 ") 
8455 9502 6802 ) 
2456 0581 0862 G0BO 
2457 @5@2 7741 7744 
B46 
g461 @503 4543 QAY>, 4545 
0462 6584 7476 7476 
04635 g505 3634 3634 
0464 @586 $747 3747 
8465 9587 8820 C208 
2466 2518 8800 GBOS 
0467 @511 7580 7589 
04728 2512 880g ZABS 
9474 2513 7802 7888 
8472 @514 #8872 8272 
_ 0473 
9474 @515 6323 QAX;, JMP QAOQel1 
= 8475 0516 6354 JMP QAQ 
—«8476 9517 6354 JMP QAQ 
B477 9528 6144 JMP QARFSH 
9508 @521 68487 QAV 
581 @522 08008 g 
@582 @523 5166 5166 
_ _ 0583 2524 08526 9526 
2504 
0595 9525 8892 4) 
8506 2526 0882 4 
8587 2527 3622 3608 
9518 9532 6841 G44 
9514 9531 4102 41808 
0512 @532 6836 B036 
85138 9553 2856 2052 
6514 2534 8056 G85 
g515 8535 8424 8404 
516 2536 8437 8437 
8517 2537 8590 582 
85208 2549 6096 GOH6 
g521 @541 0494 G44 
@522 2542 6494 3404 
2523 543 801 GO04 
$524 g 544 8800 G22 
8525 4 2545 8601 B6G1 
8526 546 4839 4930 
__ AG27 @547 4536 4536 /6838 





4233S 
/2447 
/253U 
/263V 
/274W 
/301X 
/3LtY 
/3242 
/333/ 
/341BACKSLASH IGNORED ON INPUT 
/NOT USED 
YNOT USED 
358) 


fCODES 36:ALT, S37:RUBOUT NOT DISPLAYED 
fire CR 
4& > 
/ALT, 
/RUBOUT, 
/4B3SPACE 


BACKSLASH 
TAB 

SALIX! 

/4ain 

/CODES 43%) 44%) 45%LF NOT DISPLAYED 


NOT USED 
446: 8 


/CODE 47:TAB NOT DISPLAYED 
/NOT USED 

/NOT USED 

583 ¢ 

542%) 

752: % 

45334 

543, 

155t+ 

/56$, 


S573/ 











eT Lo fn a aU Da 


* cairn Rt ceiemcetneetee hveoernte, weciepmeneeneerpunenn equates purr atyetrtagnaaesseusnintelitinedenmeransin mbites of Ln RE Atha 


a 
a 
E 
t 
id 





‘alee | ale Hees platen w Bibetlae stl Pt Py 


0530 





9533 
9534 
0535 
3536 
9537 
9540 
0541 
0542 
9543 
9544 
0545 
9546 
6547 
9550 
0554 
0552 
2553 
9554 
9555 
9556 
0557 
9568 


— 9564 


9562 
0563 
0564 
@565 
0566 
8567 
0570 
0574 


8572 


9573 


9574 


9575 
9576 


8577 


2688 
681 


— 8682 


9683 
B604 
G605 
6686 


— 66087 
8618 


S611 
9612 
8613 
0614 
615 
2616 
8617 
2620 

R624 
9622 
0623 

9624 


6625. 


EL 4 


9559 


8551 
@552 
0553 
g554 
2555 
G556 
0557 
0568 
O561 
562 
0563 
0564 
2565 
0566 
2567 
2570 
25714 
9572 
0573 
0574 
@575 
2576 


G577 
2600 
G61 
96 B2 


B603 
G684 
G65 
G606 


®607 
9618 
G61 


Z612 
G615 
G614 
2615 
0616 
2617 
C620 


G62] - 


B622 


(96258 


2624 
9625 
0626 


AkhD7 


S651 
2161 
6177 
4323 
2151 
$122 
26514 
2414 
0477 
2172 
965141 
1526 
4225 
4443 
6859 
9126 
2651 
S122 
36514 
2282 
QO2B 
46014 
BO28 


G2B2 
BOOB 
1212 
1212 


0216 
2577 
4220 
2855 


1768 
6808 
6222 


1282 
D200 
4734 
2001 
47314 
2202 
4733 
4727 
8415 
6000 
9500 
6036 


1068 
AAAA 


3651 


2181 /6L31 
5177 2 
4523 46282 
2i51 
4122 /6333 
2651 
2414 1/6434 
477 
Sis 2 /65:5 
Z6514 
1586 4/6626 
4225 
4443 67:37 
605¢ 
5126 /7238 
26514 
5122 71:9 
3654 
2202 {72 
C820 
46014 47333 
2206 
/CODE 74:<NOT DISPLAYED 
QAU, 2 /CONS TANT 
g /NOT USED 
1212 /75%s 
1212 
/CODE 76:> NOT DISPLAYED 
QAW, NOP 
ADD QAU 
4828 4773? 
2855 
/ 
QAF, DSC | 
6206 
JMP QAI 
/ 
/END QeA 
/ 
/ 
/ 
/ 
/KEYBOARD INPUT ROUTINE 
/ 
LKRBs 6836 /POP-8 [OT KBD 
LTSFs 6841 /TSF 
LTLS# 6846 /TLS 
/ 
GETKBD, LDA 
g 
STC EXIT+6 SAVE RETURN 
ADD 1 /SAVE XRS 1 AND 2 
STC EXIT#3 
ADD 2 
STC EXIT+5 
STC EXI]T4#1 
KST /WAS SOMETHING TYPED? 
JMP @ /NO! EXIT 
108 
LKRBS 


STA | 
TY. a 


/GET TTY CHAR. CLEAR FLAG 
/SAVE IT : 





ey 





om 


atte 


Bod/ 
0630 
9631 
8632 
2633 
0634 
9635 
3636 
0637 
2640 
96414 
0642 
9643 
2644 
2645 
2646 
0647 
0652 
9651 
8652 
9653 
0654 
9655 
9656 
8657 
"9668 
* 9661 
"9662 
8663 
"9664 
9665 
2666 
_, 8667 
9678 
- B674 
_ 8672 
_ 9673 
"9674 
"9675 
0676 
8677 
“B7BB 
6781 
8702 
~ 9793 
" 9704 
_ 8705 


me 


"9786 


0707 
_ 8718 
O711 
, 8712 
87135 
9714 
8715 
8716 
@717 
_ 0728 
8721 
0722 





Boo 
2631 
8632 
26355 


2634 
2635 
D656 
2637 
8640 
2641 
2642 
2643 
2644 
2645 
0646 


8647 
2658 
8651 
8652 


2653 
2654 
2655 
3656 
g657 
2662 
B661 
2662 


0663 
B664 


2665 


3666 
B667 
2672 
2671 
2672 
8673 
8674 


G675 
G676 
@677 
8788 
G781 
8782 
@783 
8704 
@785 
2726 
2707 
G71 
G714 


@71i2 
8715 
e714 
9715 


0716 


L129 
7548 
@451 
6675 


2061 
B745 
0262 
7776 
1080 
0627 
1461 
6645 
6726 
0222 
6642 


1122 
7442 
0451 
6666 


1464 
6663 
1820 
0334 
6735 
1929 
0237 
6739 


1464 
6726 


6732 


1298 
2627 
6735 
2627 
1562 
7782 
6732 


1468 
7755 
6712 
1822 
B843 
4727 
1822 
6215 
6735 
1226 
G212 
6735 
6726 


1462 
7752 
6722 
1826 


LEGAL» 


/TO HERE IF CONTROL CHAR 


CNTRL 


_f 
CKLF + 


045 





ADA 
~23/7 
APO 
JMP 


SET 


J 


CNTRL 


Ts 


CHARS ~1 


SET 
-7 

LDA 
TY 

SAE 
JMP 
JMP 
XSK 
JMP 


ADA 
~337 
APO 
JMP 


SAE 
JMP 
LOA 
354 
JMP 
LDA 
37 

JMP 


SAE 
JMP 


JMP 


LOA 
TY 
JMP 
ADD 
BCL 
7798 
JMP 


SAE 
7755 
JMP 
LDA 
43 
OTC 
LDA 
215 
JMP 
LDA 
212 
JMP 
JMP 


SAE 
J MP 


LOA 
45 


I 2 


Id 
»*2 
EXIT 
1 2 
74 


I 


LEGAL 
I 1 
+7 

I 

TPE 
EX[T+¢2 


I. 2 
EXIT 


EX T+2 


TPE 

TY 

I 
EXIT+2 
I 


CKLF 
I 


EXIT+1 
I 


TPE 
I 


TPE 
EXIT 


I 
7752 


+4 


/BETWEEN 2@8 AND 237? 
/CONTROL CHAR, CHECK FOR CR»LF, TAB 


/NO 


ILLEGAL CHAR, DON T ECHO 


/CHECKED THEM ALL? 


/BETWEEN 248 AND 357? 
/YES. LEGAL CHAR 


/NO, CHECK FURTHER, 


/RUBOUT 


ECHO BACKSLASH 


/LEGAL EXIT 


/ILLEGAL 
SALT 


JEXTT» DON T ECHO 


ZECKO CHAR 
/STRIP IT TO 6#BIT 


/CR 


/LF ie 











G726 
G727 
732% = 
8731 
732 
733 
734 
Q735 
0736 
0737 
G74 
0741 
—8742 
Q743 
744 
0745 
@746 
0747 
9750 
754 


, 0752 


0753 
9754 
Q755 
0756 
Q757 
0762 


"97 64 


"9762 
0763 
0764 
6765 
9766 
9767 
6778 
—O774 
0772 


9773 


_ 0774 
0775 
9776 
- Q777 
1808 
1001 
1002 
4093 
"1904 

1025 
1206 
1207 
1210 
1211 
1042 
1913 
1014 
1815 
1016 
1047 
1228 
4024 
2022 


1623 
4a24 


@717 
8720 
G721 
C722 
9723 
0724 
@725 


8726 
2727 
2732 
2731 
0732 
8733 
2734 


2735 
2756 
g737 
2748 
@741 
2742 
@743 
2744 
@745 
2746 
Q747 
07 52 
8751 
8752 
Z753 
0754 
Q755 
G756 


0757 
276 
B761 
$76e 
2763 
0764 
@765 
@766 
@767 
£772 
G771 
772 
2773 
0774 
Q775 
@776 
@777 
1282 
1201 
1282 
1983 
1604 
1885 
1806 
1207 
1812 
1811 
1212 


6782 


1462 
7751 
6726 
122 
@247 
6732 


1228 
GeS2 
261 
CLVS 
BLE2) 
CLES 
60e2 


e522 
6246 
1220 
2200 
4745 
252¢ 
6241 
6742 
68e¢ 
0243 
244 
22 45 
2247 
G3¢ee 
2536 
2337 
240 
B36 


2262 
B261 
2262 
B63 
£G64 
2265 
2266 
C267 
0272 
O@71 
G243 
€237 
CO42 
Zeit 
GO56 
2255 
2853 
@234 
G32 
2236 
COC4 
BLB2 
BBS 
B2B4 
G285 
O226 
0887 
9218 


JMP CNTRL*+5 


SAE | 
7751 Ro 
JMP EXIT /ILLEGAL 
LOA J] 
47 
JMP EX] T+2e “EXIT, DON T ECHO 
/ 
EXIT, LDA ] /GET 6-BIT ASCI! 
Q 
SET | 4 /RESTORE XRS 
4) 
SET I 2 
2g 
JMP /EXIR S/R GETKBD 
/S/R TO PRINT CCAC) 
TPE» 108 
LTLS /PRINT IT 
LDA 
g 
STC ,+4 /SAVE RETURN 
108 
L TSF 
JMP ,=2 /WAIT FOR FLAG 
JMP /JEXIT 
CHARS, 2435 /HASH 
244 /DOLLAR SIGN 
245 /PER CENT 
247 /APOSTROPHE 
Sag /AT SIGN 
3356 /UP ARROW 
337 /BACK ARROW 
4@ /RUBOUT 
36 /ALT 
“END OF S/R GETKBD 
CONV, 66 /O=9 
61 
62 
63 
64 
65 
66 
67 
72 
71 
43 /CR 
37 “RO 
42 /SPACE 
11 /\ 
56 /P ee 
par) /- 
53 /+ 
34 /VERT BAR 
32 /LB 
56 /CASE 
Oi /A-z 
a2 
03 
64 
g5 
26 
07 


ig 








1213 
1614 
1815 
1216 
1417 
122¢ 
1@21 
1822 
1823 
1824 
1225 
1226 
1627 
1832 
12351 
1232 
1838 
12354 
1035 
1836 
1837 
1240 
1041 
1@42 
1843 
1244 
1245 
1046 
1847 
1252 
1251 
1052 
1253 
1854 
1255 
1856 
1857 
1260 
1261 
1062 
1265 
1264 
1865 
1@66 
1667 
1072 
1271 
1272 
1273 
1074 
1275 
1076 
1877 
1182 
1121 
1182 
1125 
1124 
1185 
1126 
1187 
11128 


1111 


@211 
812 
0213 
OG14 
0815 
G16 
@017 
8222 
2221 
0222 
2823 
G24 
G025 
0826 
G27 
2250 
OO3S1 
B232 
@245 
2877 
Q677 
@275 
8B25 
0854 
2256 
@252 
2857 
0077 
€274 
G076 
C874 
0276 
2235 
8852 
2872 
GO20 
G47 
1828 
4202 
1042 
1152 
1808 
B67 
2450 
7677 
1382 
4266 
1569 
2072 
114@ 
1152 
7145 
1522 
4867 
2452 
i Tek 
1520 
8267 
1562 
2270 
1142 
1152 


1 
12 
13 
14 
15 
16 
17 
20 
21 
22 
23 
24 
25 
26 
27 
30 
31 
32 /2 
45 SUF 
va 
77 /? 
75 /3 
25 /U 
54 /COMMA 
56 /PERIOD 
52 /ORIGIN 
57 /LT BRAC TO SLASH 
77 /UNDERLINE?? 
74 /QUOTES 
76 /QUOTES 
74 /QUOTES 
76 /QUOTES 
35 /RT BRACKET 
52 
72 /COLON 
OZ 
47 /TAB 
SETUP. LDA I 
4000 
STA 
BNIN 
LDA 
ANS1i+1 
AZE 
JMP SETUPL 
LOH 
ANS1+4202 
BCL I 
70 
ADM 
BNIN 
JMP SETUPS 
SETUP1, LOH 
ANS1+4@201 
AZE 
JMP SETUP2 
LOH 
ANSi+*#1 
BCL I 
78 
ADM 
BNIN 
LDH 


i 








BAO 


eS iatalCIDIT Te teenie 


H 
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E 
n 
d 
a 
3 
ae 
fe 
a 
4 
we 
£ 
e 
Aa 
‘ 
ba 
a 
4 
ai 
KI 
: 
JA 
4 
a 
a 
a 


Th binant bod Sit 


a lk snaha Aa nated 





ee 


ties 
1i2 
L1i2&: 
tie? 
11358 
1494 
1132 
1153 
1134 
1155 
1136 
1137 
1148 
11441 
1142 
1143 
41144 
1145 
41146 
1147 
1152 
1151 
1152 
1153 
1154 
1195 
1156 


4457 


1162 
1161 


~ 4162 


1163 


_ 4164 


1465 
1166 


4467 


4172 
14171 
1172 
1173 


» yaad 4 


1175 
4176 
1177 
1202 
1204 
1282 
1202 
1203 
1283 
1283 
12035 
12835 
1283 
1293 
1203 
1263 
1285 
1204 
1284 
1264 
1204 


¢9aa 





Lite 
1113 
1114 
1115 
140 
LA 
1122 
a he Bras 
1122 
1i23 
1124 
1125 
1126 
1127 
11352 
44°51. 
tiS2 
11353 
1134 
11355 
1136 
1137 
1142 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1152 


1154 
1152 
1153 
1154 
1155 
1156 
1157 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 


1172 
1171 
1172 
11753 
1174 
1175 
1176 
1177 
1282 


12@1 
1282 
1283 
1284 
427a5 


4266 
1564 
8270 
2243 
1142 
1152 
7145 
156g 
ZO7H 
1142 
1152 
1522 
O067 
1569 
2270 
Z243 
1142 
1152 
1522 
4066 
1562 
B270 
B246 
1i4¢ 
na a 
1242 
1526 
11208 
1804 
1248 
1154 


2712 
B2QBG 
2712 
QOS 
Q070 
2166 
GO71 
6777 
1532 
2458 
7165 
7251 
1571 
LEOL 
5262 


6643 
5724 
1¢11 
2548 
2822 
1707 
2201 
1542 
0417 


0523 
4357 
1617 
2442 
2422 


ANS1+498¢ 


BCL 1 
7@ 
ROL 3 
ADM 
BNIN 


JMP SETUPS 


SETUPRZs BEL 1 
72 
ADM 
BNIN 
LDH 


ANS1+1 


BCL I 
7@ 
ROls: 6 
ADM 
BNIN 
LDH 


ANS1+4088 


BCL I 
7@ 
ROL 6 
AQM 
BNIN 
STA 
NBNIN 
SETUPS, ADA [ 
1281 
STA 
BNIN1 
7ZREAD INITIAL 
OVRTEX, ROC U 
BNIN, g 
ROC UV 
BNINI, @ 


BLOCKS IN 
42000-2377 
42400-2777 


SET 1 18 
4N\INIT<1 


SET 1 
6777 
LDH I 
AZE 


11 /Q62338608-3377 


12 
/NULL? 


JMP ,*2 
JMP OVRIN 7END 


STH | 


po 


JMP ~7d 


INIT, TEXT >#28 


/THIS PROGRAM DOES 











wLLo 
2514 
0124 
0542 
0114 


1443 
9725 
1124 
2504 
2411 
1716 


2556 
4357 
23108 
G53 
1342 
1.437% 
2524 
1116 
0741 


4143 
5224 
0175 


6543 
1415 
G275 
6866 


6262 
4325 
1582 
7562 
6664 


6643 
4202 


ZOBO 
8072 
6081 
1820 
6370 
1042 
1621 
7476 
1462 
0266 
73114 


146¢ 
G12 
736 


7578 
Ge52 
O218 
1532 
1462 
2266 


/NOT TRANSLATE ALL 


/SITUATIONS, 


CHECK LISTINGS! 


ZTAS5S 

LMB28608 

UMB=264@ 

> 

"4 

OVRIN» SET I 18 
4\2001 
LOA | 
6376 
STA 
TPOUT 

START, JMP HWD 
SAE ] 
66 
JMP TXMETA 


/COMMENT MODE 
COMMT, SAE I 

12 

JMP MOCT 
7ZEND OF COMMENT 
MORE» JMP LINCD 


SET 12 
10 

LOH I 12 om 
SAE I <7 


66 
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1274 
1275 
1276 
1277 
1522 
1384 
1582 
1325 
Lo74 
1325 


1326 
1387 
1512 


1331 
1-312 
13135 
1314 
1315 
1316 
1317 
132@ 
1321 
1$22 
1323 
1324 
1325 
1326 
1327 
153@ 
1331 
1332 
1333 
1334 
1335 
1336 
1337 


1340 
1541 


1342 
1343 
1344 


1345 
1346 
1547 


135¢ 
1351 
1o5¢ 


1353 
1354 
1555 


1356 
1357 
1362 


1561 


7276 
7257 
146¢ 
S622 
7562 
7257 
1222 
£120 
7276 
F257 


7572 
7476 
7263 


146¥ 
BO72 
7342 
1020 
0247 
757@ 
1820 
0230 
757p 
1220 
G253 
7570 
10 28 
0047 
7570 
7532 
1820 
OO74 
7578 
7476 
1468 
0071 
7333 


7578 
7257 


1462 
@E15 
7352 


757@ 
7532 
7257 


1462 
£62 
7356 


7570 
7532 
7257 
1468 
222 
7365 


7476 


MO1, 


JMP .+2 

JMP START > 
SAE | 
22 7 
JMP ,*2 

JMP START 

LDA I 

188 


JMP LINCD 
JMP START 


/MORE COMMENTS 


MOCT, 


JMP LINCO 
JMP HWD 
JMP COMMT 


/CHECK FOR TEXT META 


TXMETA; 


TXBG, 


SAE ! 

7@ /ALT<A 
JMP CK 
LOA | 
0047 

JMP LINCD 
LDA I 
2232 


JmMP 
LOA 
53 
JMP 
LDA 
47 
JMP 
JMP 
LDA 
74 
TXAGIN» JUMP 
JMP 
SAE 
74. 
JMP 


LINCD 
I 


LINCD 
I 


LINCD 
SPACE 


LINCD 
HWD 
I 


TXAGIN 


7ZEND OF TEXT META 


JMP 
JMP 


LINCD 
START 


/SMALL 1 CHECK 


ICK, SAE 
15 
UMP 

/SMALL 1 
JMP 
JMP 
UMP 


I 
UCK 
LINCD 


SPACE 
START 


/SMALL U CHECK 


UCK, SAE 
62 
JMP 
/SMALL U 
JMP 
JMP 
JMP 
/TAG CHECK 
TAGCK, SAE 
22 
JMP 
/TAG 
JMP 


I 

TAGCK 
LINCO 
SPACE 
START 
f 

SYMCK 


HWO 








15414 
1542 
1343 
1344 
1345 
13546 
1347 
1552 
1351 
13552 
13538 
1554 
1355 
1356 
1357 
1368 
1561 
1362 
1363 
13564 
1365 
1366 
1367 
1378 


1371 


1572 
1373 
1374 
1375 
13576 
1377 
1489 
1481 


1482 


1483 
1484 
1485 
1426 


$497 


1412 
1414 
1412 
1413 
14144 
1415 
1416 
1417 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1432 
14314 
1432 
1433 
1434 
1435 


1436 


& Vw G 
13653 
13564 


1365 
1366 
1367 
1376 
1371 
1372 
1373 
4374 
4375 
1376 
1377 
1402 
1401 
1402 
1403 
14204 
1405 
1426 
1427 
1410 
1414 
1412 
1415 
1414 
1415 
1416 
1417 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1430 
1431 
1432 


1433 
1434 
14355 
1456 
1437 
1442 
1441 
1442 
1443 
1444 


1445 
1446 
1447 
1450 
1454 
4452 
1453 


14545 


rege 
7541 
7582 


2052 
G01 
1120 
7766 
0471 
7412 
BL52 
0212 
1532 
1128 
7722 
2471 
7412 
1512 
1122 
7754 
2451 
7412 
13128 
7558 
7257 
1319 
1460 
0077 
742@ 
7578 
7627 
0252 
2018 
1128 
7722 
0471 
7467 
1312 
112¢ 
7754 
6451 
7467 


1332 
1120 
7722 
0471 
7467 
13512 
1120 
7754 
@451 
7467 


1332 
1120 
7722 
8471 
7467 
1312 
1122 
7754 


JMM SWAP 

JMP COMMA 

JMP MO1 
/SYMBOL CHECK 


SYMCK, SET 
12 
ADA 
=11 
APO 
JMP 
SET 
16 
LOH 
ADA 
~55 
APO 
JMP 
LOH 
ADA 
“23 
APO 
JMP 
LOH 
JMP 
JMP 

TERM, LOH 
SAE 
77 
JMP 
JMP 
JMP 

MNEMs SET 
1@ 
ADA 
"55 


te 


I 


I /NUMBER? 
TERM 
12 /YES 


12 /PEEK AT NEXT HWOD 


/Z OR BELOW 
I 
TERM 
12 /YES 
I 


TERM 

18 /YES,sAwz 
SWAP 

START 

18 

I 

+3 

LINCD 

QUT 

12 


I 


APO | 


JMP 

LOH 

ADA 

235 

APO 

JMP 

/LETTERs IS 
JA LETTER? 

LOH 

ADA 

#55 

APO 

JMP 

LOH 

ADA 

“235 

APO 

JMP 

/YES, CHECK 

LOH 

ADA 

#35 

APO 

JMP 

LOH 

ADA 

-23 


CRMORE 
12 


CRMORE 
NEXT CHAR 


CRMORE 
LAST CHAR 
I le 

I 


I 
CRMORE 


r © 
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1455 
1456 
1457 
1462 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1479 
1471 
1472 
1475 
1474 
1475 


1476 
1477 
1508 
1501 
1522 
1503 
15 04 
1595 
1526 
1587 
1512 
1521 
1512 
15138 
1514 
1515 
1516 
1517 
1522 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
153@ 
1531 


1532 
15355 
1534 
1555 
1556 
1557 
1548 


1541 
1542 
1543 
1544 
1545 


@451 
7467 
1512 
757@ 
7476 
7570 
7476 
7578 
7332 
7207 
Léi2 
146¢ 
B212 
7474 
7266 
7570 
4257 


Ovit 
2200 
9519 
1822 
2210 
1462 
63577 
7387 
7541 
153@ 
OO02 
2278 
7777 
1208 
1526 
1129 
GOG1 
1248 
1526 
1122 
1001 
1240 
1532 
G71 
BLBD 
0718 
D00B 
7307 


0211 
2220 
5540 
1822 
2014 
7578 
228 


2011 
2888 
5547 
1229 
GB63 


APO 

JMP CRMORE 

LDH 12 /MNEMON IC a“ 

JMP LINCO 

JMP HWD 

JMP LINCO 

JMP HWOD 

JMP LINCO 

JMP SPACE 

JMP START 
CRMORE, LOW 12 

SAE | 

12 

JMP ,#2 

JMP MORE 

JMP LINCD 

JMP START 
/HWD MUST CHECK 
7FOR END OF Q4 
/AND BRING=IN NEW 
/HALF WORD 
HWO, CLR 

ADD @ 

STC BACK 

LOA 

18 

SAE | 

6377 

JMP ,+*2 

JMP EQ4 

LOH I 18 
BACK, g 
EQ4, SET 1 12 

7777 

LOA 

NBNIN 

ADA I 

1 

STA 

NBNIN 

ADA ] 

1881 

STA 

NBNING 

ROC U 
NBNIN, @ 

ROC U 
NBNINI, @ 

JMP BACKej 
/SPACE CREATES A SPACE 
SPACE, CLR 

ADD @ 

STC BACK4 

LOA J 

14 

JMP LINCO 
BACK1, @ 
/COMMA OUTPUTS A COMMA 
COMMA, CLR 

ADD @ 

STC BACK2 

LOA | 

63 


2 








SAAN 
> 





nar] 


1537 
1548 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1558 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1569 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
157@ 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1682 
1681 
1682 
1623 
1624 
1605 
1686 


£687 


.. £618 


1614 
1612 
1613 
1614 
1615 
1616 
1617 
1628 
1621 
1622 
1623 


— 1624 


1625 
1626 


1627 


1630 
1631 
1632 
1633 


1634 





1547 


1558 
Lbot 
1552 
1553 
1554 
1555 
1556 
1557 
1560 
1561 
1562 
1565 
1564 
1565 
1566 
1567 


1572 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
16 0B 
1694 
1602 
1603 
1604 
1605 
1626 
1627 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1632 
1631 
1632 
1633 
1634 
1635 
1636 


1637 


ASOD 


0011 
2428 
5567 
1510 
1842 
1565 
7476 
1242 
1562 
1820 
0220 
7370 
1222 
2O62 
7570 
QWOR 


5617 
2000 
5626 
1288 
OG11 
1462 
7377 
7616 
0724 
GHgo 
1806 
1681 
11292 
GO21 
1462 
6467 
7612 
7637 
184g 
1601 
OQB74 
6777 
182¢ 
SLOL 
1122 
Q757 
5624 
1290 
hs 
1371 
C2WO 
1002 
1691 
1842 
1634 
G704 
CEBe 
0416 
7635 
@717 


WIC w& LINGU 
BACK2, 2 
/SWAP INTERCHANGES NUMBER 
7AND LETTER COMBINATIONS 
/THEN OUTPUTS BOTH 
SWAP, CLR 
ADD @ 
STC BACKS 
LOH 12 
STA 
SWAPL 
JMP HWD 
STA 
SWAP2 
LDA I 
SWAP2, @ 
JMP LINCO 
LDA | 
SWAP1L, @ 
JMP LINCO 
BACKS, 2 
“LINC SETS UP O/P 
/BUFFER IN Q6 
LINCD.s STC OPWD 
ADD @ 
STC BACK4 
LOA 
i1 
SAE ] 
7377 
JMP OUTPUT 
WRC YES, END OF OP BUFFER 
TPOUTe @ 
LDA 
TPOUT 
ADA | 
ni 
SAE | 
6467 
JMP ,*2 
JMP TRPQe3 
STA 
TPOUT 
SET I id 
6777 
OUTPUT, LDA I 
OPWO, g 
ADA | 
CONV 
STC PICKUP 
LDA 
PICKUP, @ 
STH I 11 
BACK4, 6 
QUIT, LDA 
TPOUT 
STA 
TPQ 
WRC 
TPQ: ) 
416 
JMP e oj 
CHK. U 
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1635 
163 
isk) 
1640 
16414 
1642 
1643 
1644 
1645 
1646 
1647 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1660 
1664 
1662 
1663 
1664 
1665 
1666 
1667 
16 72 
1671 
1672 
1673 
1674 


_ 1675 


1676 
1677 
1702 
1761 
1702 
1723 
1704 
1785 
1706 
1707 
1718 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1730 
1731 


«4732 
1733 


1642 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1652 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1662 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1678 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1782 
1761 
1782 
17038 
1704 
17085 
1786 
1787 
1712 
4721 
1712 
1:74:95 
1714 


L732 
1716 
1717 
1720 
1721 
1722 
1723 
1724 
i725 
1726 
1727 
17308 
1731 
1732 
17553 
1734 
1755 


ZUG2 
2416 
7644 
0O75 
C7e1 
2276 
7322 
0274 
772¢@ 
C273 
1663 
1233 
2502 
6244 
7654 
25¢¢@ 
6046 
£2354 
7653 
6015 
B215 
G212 
0522 
@385 
2315 
0317 
8526 
3 85 
0246 
8324 
B381 
8322 
8305 
G24 
8306 
@522 
2517 
2315 
0242 
@525 
2316 
@311 
0524 
2242 
S261 


2215 
Z212 
£524 
2331 
2322 
G3a5 
24D 
6314 
BS5G6 
C242 
G31 
0328 
8240 
8263 
8267 
8268 
9254 


TEXT?» 


/REMOVE 


2280 
2416 

JMP m1 
SE, 2.15 
RCG 

SET I 16 
7388 

SET I 14 
~57 

SET 128 
TEXTZ-4 
LOA 1 13 
108 

6041 /TSF 
JMP 272 
108 

6846 /TLS 
XSK I 14 
JMP 277 
JMP 15 
R215 
8212 

322 

365 

315 

S17? 

326 

325 

242 

324 

S81 

528 

385 

248 

386 

$22 

317 

$15 

246 

$25 

316 

S14 

324 

242 

261 

TAPE FROM UNIT 1 
G215 
G212 

524 

331 

328 

385 

24 

314 

326 

240 

384 

928 

248 

263 

267 

268 

254 





17354 
1735 


_ 4736 


1737 
1742 
1741 
1742 
1743 
1744 


1756 
1737 
1742 
1741 
1742 
17483 


0262 
8240 
2383 
2322 
$215 
B212 


2608 

240 

383 

322 

215 

212 
/TYPE LF AP 378.8 CR 
/CONVERT 
418 DEC 69 
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oe 


_. CONV 


-= 


ANS1 4266 
BACK 5512 
BACK1 5542 
BACK2 5547 
BACKS 5567 
BACK4 5626 
BNIN 5152 
BNINI 5154 
CHARS 4746 
CKLF 4712 
CNTRL 4675 
COMMA 5541 
COMMT 5263 
4757 

CRMORE 5467 
EQ4 5511 
EXIT 4726 
GETKBD 4612 
HWD 5476 
ICK 5342 
INIT 5167 
LEGAL 4666 
LINCD 5572 
LKRB 6236 
LTLS 6246 
LTSF 6041 
MNEM 5426 
MOCT 5306 
MORE 5266 
MOL 5302 
NBNIN 5526 
NBNIN1 5530 
OPWD 5617 
OUTPUT 5616 
OVRIN 5251 
OVRTEX 5151 
PICKUP 5624 
QAB 4875 
QACA 41086 
QAD 4117 
_QAE 4141 
QAF 4687 
QAG 4153 
QAH 4205 
QAl 4222 
_ QAINIT 4871 
QAu 4227 
QAK 4376 
QAL 4266 
QAM 4172 
QAN 4314 











: — f = é 
: ul 4322 . ) 


QAP 4333 
a QAQ 4354 ’ 
QARFSH 4144 
| = QAT 4361 
| QAU 4577 
QAV 44907 
QAW 4643 
QAX 4515 
} QAY 4593 
a QAzZ 4372 
QUIT 5627 
SETUP 5262 


SETUP1 5877 
SETUP2 5121 
SETUPS 5145 





SPACE 5532 
START 5257 

SWAP 5550 

7 SWAP1 5565 
| SWAP2 5562 
ae SYMCK 5365 
ce TAGCK 5356 
a TERM 5412 
= TEXTZ 5664 
ee TEX1 4825 
bs ecdene, TRE 4735 
: TPOUT 5601 
TPQ ©5634 

TXAGIN 5333 

TXBG 5314 

TXMETA 5311 

TY 4627 


UCK 5358 
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